home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / datature / omahadb / srt.bas < prev   
BASIC Source File  |  1985-06-08  |  300b  |  8 lines
  1. 1000 REM THIS SAVES ON MEMORY OVERHEAD DURING SORT
  2. 1005 COMMON G1$,G2$,G3$
  3. 1010 SHEL$="SORT"+" "+G1$+" "+G2$+" "+G3$
  4. 1020 DEF SEG:A=PEEK(&H30):B=PEEK(&H31)
  5. 1030 SHELL SHEL$
  6. 1040 LOCATE 3,1:COLOR 0,7: PRINT CHR$(200);STRING$(40,205);: COLOR 7,0:DEF SEG:POKE &H30,A:POKE &H31,B
  7. 1050 RUN "MENU"
  8.